home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 November: Tool Chest / Dev.CD Nov 98 TC.toast / Sample Code / Snippets / Toolbox / MDEF.Sample / myMDEF.a < prev    next >
Encoding:
Text File  |  1992-07-15  |  466 b   |  17 lines  |  [TEXT/MPS ]
  1.         INCLUDE    'traps.a'
  2.         
  3.         STRING ASIS
  4.  
  5.  
  6. MyMDEF    MAIN EXPORT             ; this will be the entry point
  7.     IMPORT MYMENU                ; name of Pascal FUNCTION that is the WDEF
  8.                                 ; we IMPORT externally referenced routines
  9.                                 ; from Pascal (in this case, just this one)
  10.     BRA.S    @0                    ; branch around the header to the actual code
  11.     DC.W    0                      ; flags word
  12.     DC.B    'MDEF'                ; type
  13.     DC.W    128                    ; ID number
  14.     DC.W    0                    ; version
  15. @0    JMP    MyMenu                    ; this calls the Pascal WDEF
  16.     END
  17.